home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / pdsoft / demo_library / 4496.lha / InstallDominoes < prev    next >
Text File  |  1980-07-02  |  3KB  |  151 lines
  1. ; $VER: Install Dominoes V1.1 (24 January 1995)
  2. ; This script is to be distributed with  D O M I N O E S
  3. ; by Silicon Sircus
  4.  
  5. (
  6. (set #install-script-choice
  7. (cat "\nYou may want this script (not only to go over its\n"
  8.      "excellence again and again) if you're indecisive.\n\n"
  9.      "You see - you may want to move it from where you\n"
  10.      "are installing it now, in which case this script\n"
  11.      "would come in useful because it could move all the\n"
  12.      "files and set the assigns up for you.\n\n"
  13.      @askoptions-help
  14. )
  15. )
  16. )
  17.  
  18. (set @default-dest
  19. (askdir
  20.    (prompt "Please select the directory where you would like to install"
  21.            " D O M I N O E S. ")
  22.    (help @askdir-help)
  23.    (default "SYS:")
  24.    )
  25. )
  26.  
  27. (
  28. (working "Installing  D O M I N O E S  program")
  29. (copyfiles
  30.     (prompt "")
  31.     (help @copyfiles-help)
  32.     (source "Dominoes")
  33.     (dest @default-dest)
  34.     (infos)
  35.     )
  36. )
  37.  
  38. (complete 7)
  39.  
  40. (
  41. (if (exists "Dominoes.guide" (noreq) )
  42.     (copyfiles
  43.         (prompt "Would you like to install the cool documentation for\n"
  44.                 "D O M I N O E S  which is an AmigaGuide?")
  45.         (help @copyfiles-help)
  46.         (source "Dominoes.guide")
  47.         (dest @default-dest)
  48.         (confirm)
  49.         (infos)
  50.     )
  51. )
  52. )
  53.  
  54. (complete 8)
  55.  
  56. (
  57. (copyfiles
  58.     (prompt "Would you like the install scipt?\n\n"
  59.             "Ask for help for reasons why.")
  60.     (help #install-script-choice)
  61.     (source "InstallDominoes")
  62.     (dest @default-dest)
  63.     (confirm)
  64.     (infos)
  65.     )
  66. )
  67.  
  68. (complete 9)
  69.  
  70. (
  71. (if (exists "LIBS/PowerPacker.library" (noreq) )
  72.     (copyfiles
  73.         (prompt "You need PowerPacker.library to run  D O M I N O E S\n"
  74.                 "Would you like me to install version 35.344 for you?")
  75.         (help @copyfiles-help)
  76.         (source "LIBS/PowerPacker.library")
  77.         (dest "LIBS:")
  78.         (confirm)
  79.     )
  80. )
  81. )
  82.  
  83. (complete 10)
  84.  
  85. (
  86. (if (exists "LIBS/MedPlayer.library" (noreq) )
  87.     (copyfiles
  88.         (prompt "Sorry to keep on bothering you, but\n"
  89.                 "D O M I N O E S  also needs MedPlayer.library\n"
  90.                 "Would you like me to install version 2.0 for you")
  91.         (help @copyfiles-help)
  92.         (source "LIBS/MedPlayer.library")
  93.         (dest "LIBS:")
  94.         (confirm)
  95.     )
  96. )
  97. )
  98.  
  99. (complete 11)
  100.  
  101. (
  102. (makedir((cat @default-dest "/DominoData" )))
  103. )
  104.  
  105. (
  106. (working "Installing  D O M I N O E S  game data")
  107. (copyfiles
  108.     (prompt "")
  109.     (help @copyfiles-help)
  110.     (source "DominoData/")
  111.     (dest (tackon @default-dest "DominoData/"))
  112.     (all)
  113.     )
  114. )
  115.  
  116. (complete 89)
  117.  
  118. (
  119. (makedir ((cat @default-dest "/Dominodata/SSTimesBoldItalic" )))
  120. )
  121.  
  122. (
  123. (working "Installing  D O M I N O E S  fonts")
  124. (copyfiles
  125.     (prompt "")
  126.     (help @copyfiles-help)
  127.     (source "DominoData/SSTimesBoldItalic/")
  128.     (dest (tackon @default-dest "DominoData/SSTimesBoldItalic"))
  129.     (all)
  130.     )
  131. )
  132.  
  133. (complete 99)
  134.  
  135. (
  136. (startup @app-name
  137.     (prompt "I need to put some assigns in your S:User-Startup"
  138.         " so that  D O M I N O E S  knows where to look for its"
  139.         " data and its fonts when you double click on it.\n\n"
  140.         "Is that okay?\n\n"
  141.         "(P.S.  You must reset once the installation is"
  142.         " FINISHED to make sure this happens)")
  143.     (help @startup-help)
  144.     (command "assign >nil: Dominoes: "@default-dest)
  145.     )
  146. )
  147.  
  148. (complete 100)
  149.  
  150. (exit)
  151.